Brian Durán

Tarea: Sesión 2 y 3


I Parte


  1. Ejecute las siguientes instrucciones para practicar el uso algunos comandos de la matemática de R.
    1. pi*2^3-sqrt(4)
    2. abs(12-17*2/3-9)
    3. factorial(4)
    4. log(2,10)
    5. log(2)
    6. exp(0.069314725)
pi*2^3-sqrt(4)
[1] 23.13274
The working directory was changed to C:/Users/Brian/Documents inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the working directory for notebook chunks.
abs(12-17*2/3-9)
[1] 8.333333
factorial(4)
[1] 24
log(2,10)
[1] 0.30103
log(2)
[1] 0.6931472
exp(0.069314725)
[1] 1.071773


  1. Calcule en R el valor de x, sabiendo que:

    x = 1 + y / 1 + 2z^2
y = 10
z = pi
y <- 10
z <- pi
x <- (1 + y) / (1 + 2*z^2)
x
[1] 0.5303963


  1. Calcule en R el valor de z, sabiendo que

    z = sqrt(x^2 + y^2)
x = -10
y = pi
x <- -10
y <- pi
z <- sqrt(x^2+y^2)
z
[1] 10.48187


  1. Dado x = (3,−5, 31, −1,−9, 10,0, 18) y y = (1, 1, −3, 1,−99, −10, 10, −7), realice lo siguiente:


  1. Introduzca x e y como vectores de R
x <- c(3, −5, 31, −1, −9, 10, 0, 18)
y <- c(1, 1, −3, 1, −99, −10, 10, −7)


  1. Calcule el ángulo entre los vectores x e y
x <- c(3, −5, 31, −1, −9, 10, 0, 18)
y <- c(1, 1, −3, 1, −99, −10, 10, −7)

norma_x <- sqrt(sum(x*x))

norma_y <- sqrt(sum(y*y))

producto_punto_x_y = (sum(x*y))

phi =  acos(producto_punto_x_y/(norma_x*norma_y))

phi
[1] 1.423855


  1. Extraiga las entradas 2 y 7 del vector x
x <- c(3, −5, 31, −1, −9, 10, 0, 18)
x[c(2, 7)]
[1] -5  0


  1. Extraigas de y todas las entradas de dicho vector, excepto las posiciones 2 y 7
y <- c(1, 1, −3, 1, −99, −10, 10, −7)
y[-c(2, 7)]
[1]   1  -3   1 -99 -10  -7


  1. Escriba un comando en R para extraer las entradas menores que -3 o mayores que 10.
x <- c(3, −5, 31, −1, −9, 10, 0, 18)
y <- c(1, 1, −3, 1, −99, −10, 10, −7)

x[x < -3 | x > 10]
[1] -5 31 -9 18
y[y < -3 | y > 10]
[1] -99 -10  -7


  1. Escriba un comando en R para extraer las entradas mayores que 0 y que sean número pares.
x <- c(3, −5, 31, −1, −9, 10, 0, 18)
y <- c(1, 1, −3, 1, −99, −10, 10, −7)

x[x > 0 & (x %% 2 == 0)]
[1] 10 18
y[y > 0 & (y %% 2 == 0)]
[1] 10


II Parte

  1. Ejecute el siguiente código:
v <- c(1,3)
print(v)
[1] 1 3
plot(3,1, xlim=c(0,5), ylim=c(0,5), xlab="x", ylab="y", lwd=3, col='red', bty='n')
arrows(0,0,3,1,col='red')

  1. Ejecute el siguiente código y explique según lo estudiado en clase: Cuáles fueron los dos vectores base para diseñar la figura?, ¿Qué significa el vector de color verde?
plot(3,1, xlim=c(0,5), ylim=c(0,5), xlab="x", ylab="y", lwd=3, col='red', bty='n')
arrows(0,0,3,1,col='red')
points(1,3,lwd=3,col='blue')
arrows(0,0,1,3,col='blue')
points(4,4,lwd=3,col='green')
arrows(0,0,4,4,col='green')
arrows(1,3,4,4,col='red',lty=3)
arrows(3,1,4,4,col='blue',lty=3)

Respuestas:

Cuáles fueron los dos vectores base para diseñar la figura?
Los vectores fueron (3, 1) y (1, 3)

¿Qué significa el vector de color verde?
El vector de color verde representa la suma de los vectores (3, 1) y (1, 3)


Realice una modificacion al Codigo, de manera que en lugar de ilustrar la suma de vectores, se ilustre la resta de los vectores base.

plot(3,1, xlim=c(0,5), ylim=c(0,5), xlab="x", ylab="y", lwd=3, col='red', bty='n')
arrows(0,0,3,1,col='red')
points(1,3,lwd=3,col='blue')
arrows(0,0,1,3,col='blue')
points(3,1,lwd=3,col='green')
points(1,3,lwd=3,col='green')
arrows(1,3,3,1,col='green')

Además, complete la siguiente tabla, explicando la función de ciertas instrucciones del comando plot y arrows.

Comando Explicación
xlim, ylim Definen el rango del eje x y el eje y en el gráfico.
xlab, ylab La opción xlab agrega un título en el eje x, mientras que ylab agrega uno en el eje y.
lwd Define el ancho de la línea en el elemento que se use, e.g. gráfico, puntos, flechas.
lty Define el tipo de línea que se va a usar para dibujar cierto elemento.
col Define el color de un elemento.
bty Opción que dibuja una caja alrededor del gráfico. Si se define como ‘n’ no se dibujara ninguna caja.

 

Autor Brian Duran

 

LS0tDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7Y3NzLCBlY2hvID0gRkFMU0V9DQouaW5kZW50IHsNCiBtYXJnaW4tbGVmdDogMzBweDsNCn0NCmBgYA0KDQojIyMgQnJpYW4gRHVyw6FuDQohW10oLi4vbG9nb19jaWVuY2lhX2RlX2RhdG9zLnBuZykNCg0KPGgxPjxjZW50ZXI+IFRhcmVhOiBTZXNpw7NuIDIgeSAzIDwvY2VudGVyPjwvaDE+DQoNCjwvYnI+DQoNCiMjIyMgSSBQYXJ0ZQ0KDQo8L2JyPg0KDQoxLiBFamVjdXRlIGxhcyBzaWd1aWVudGVzIGluc3RydWNjaW9uZXMgcGFyYSBwcmFjdGljYXIgZWwgdXNvIGFsZ3Vub3MgY29tYW5kb3MgZGUgbGENCm1hdGVtw6F0aWNhIGRlIFIuDQogICAgYS4gcGkqMl4zLXNxcnQoNCkNCiAgICBiLiBhYnMoMTItMTcqMi8zLTkpDQogICAgYy4gZmFjdG9yaWFsKDQpDQogICAgZC4gbG9nKDIsMTApDQogICAgZS4gbG9nKDIpDQogICAgZi4gZXhwKDAuMDY5MzE0NzI1KQ0KICAgIA0KYGBge3IsIGNsYXNzLnNvdXJjZT0iaW5kZW50IiwgY2xhc3Mub3V0cHV0PSJpbmRlbnQifQ0KcGkqMl4zLXNxcnQoNCkNCmFicygxMi0xNyoyLzMtOSkNCmZhY3RvcmlhbCg0KQ0KbG9nKDIsMTApDQpsb2coMikNCmV4cCgwLjA2OTMxNDcyNSkNCmBgYA0KDQo8L2JyPg0KDQoyLiBDYWxjdWxlIGVuIFIgZWwgdmFsb3IgZGUgXyoqeCoqXywgc2FiaWVuZG8gcXVlOg0KDQogICAgYGBgDQogICAgeCA9IDEgKyB5IC8gMSArIDJ6XjINCiAgICB5ID0gMTANCiAgICB6ID0gcGkNCiAgICBgYGANCg0KYGBge3IsIGNsYXNzLnNvdXJjZT0iaW5kZW50IiwgY2xhc3Mub3V0cHV0PSJpbmRlbnQifQ0KeSA8LSAxMA0KeiA8LSBwaQ0KeCA8LSAoMSArIHkpIC8gKDEgKyAyKnpeMikNCngNCmBgYA0KDQo8L2JyPg0KDQozLiBDYWxjdWxlIGVuIFIgZWwgdmFsb3IgZGUgXyoqeioqXywgc2FiaWVuZG8gcXVlDQoNCiAgICBgYGANCiAgICB6ID0gc3FydCh4XjIgKyB5XjIpDQogICAgeCA9IC0xMA0KICAgIHkgPSBwaQ0KICAgIGBgYA0KDQpgYGB7ciwgY2xhc3Muc291cmNlPSJpbmRlbnQiLCBjbGFzcy5vdXRwdXQ9ImluZGVudCJ9DQp4IDwtIC0xMA0KeSA8LSBwaQ0KeiA8LSBzcXJ0KHheMit5XjIpDQp6DQpgYGANCg0KPC9icj4NCg0KNC4gRGFkbyBfKip4KipfID0gKDMs4oiSNSwgMzEsIOKIkjEs4oiSOSwgMTAsMCwgMTgpIHkgXyoqeSoqXyA9ICgxLCAxLCDiiJIzLCAxLOKIkjk5LCDiiJIxMCwgMTAsIOKIkjcpLA0KcmVhbGljZSBsbyBzaWd1aWVudGU6DQoNCjwvYnI+DQoNCmEuIEludHJvZHV6Y2EgXyoqeCoqXyBlIF8qKnkqKl8gY29tbyB2ZWN0b3JlcyBkZSBSDQoNCmBgYHtyLCBjbGFzcy5zb3VyY2U9ImluZGVudCIsIGNsYXNzLm91dHB1dD0iaW5kZW50In0NCnggPC0gYygzLCDiiJI1LCAzMSwg4oiSMSwg4oiSOSwgMTAsIDAsIDE4KQ0KeSA8LSBjKDEsIDEsIOKIkjMsIDEsIOKIkjk5LCDiiJIxMCwgMTAsIOKIkjcpDQpgYGANCg0KPC9icj4NCg0KYi4gQ2FsY3VsZSBlbCDDoW5ndWxvIGVudHJlIGxvcyB2ZWN0b3JlcyBfKip4KipfIGUgXyoqeSoqXw0KDQpgYGB7ciwgY2xhc3Muc291cmNlPSJpbmRlbnQiLCBjbGFzcy5vdXRwdXQ9ImluZGVudCJ9DQp4IDwtIGMoMywg4oiSNSwgMzEsIOKIkjEsIOKIkjksIDEwLCAwLCAxOCkNCnkgPC0gYygxLCAxLCDiiJIzLCAxLCDiiJI5OSwg4oiSMTAsIDEwLCDiiJI3KQ0KDQpub3JtYV94IDwtIHNxcnQoc3VtKHgqeCkpDQoNCm5vcm1hX3kgPC0gc3FydChzdW0oeSp5KSkNCg0KcHJvZHVjdG9fcHVudG9feF95ID0gKHN1bSh4KnkpKQ0KDQpwaGkgPSAgYWNvcyhwcm9kdWN0b19wdW50b194X3kvKG5vcm1hX3gqbm9ybWFfeSkpDQoNCnBoaQ0KYGBgDQoNCjwvYnI+DQoNCmMuIEV4dHJhaWdhIGxhcyBlbnRyYWRhcyAyIHkgNyBkZWwgdmVjdG9yIF8qKngqKl8NCg0KYGBge3IsIGNsYXNzLnNvdXJjZT0iaW5kZW50IiwgY2xhc3Mub3V0cHV0PSJpbmRlbnQifQ0KeCA8LSBjKDMsIOKIkjUsIDMxLCDiiJIxLCDiiJI5LCAxMCwgMCwgMTgpDQp4W2MoMiwgNyldDQpgYGANCg0KPC9icj4NCg0KZC4gRXh0cmFpZ2FzIGRlIF8qKnkqKl8gdG9kYXMgbGFzIGVudHJhZGFzIGRlIGRpY2hvIHZlY3RvciwgZXhjZXB0byBsYXMgcG9zaWNpb25lcyAyIHkgNw0KDQpgYGB7ciwgY2xhc3Muc291cmNlPSJpbmRlbnQiLCBjbGFzcy5vdXRwdXQ9ImluZGVudCJ9DQp5IDwtIGMoMSwgMSwg4oiSMywgMSwg4oiSOTksIOKIkjEwLCAxMCwg4oiSNykNCnlbLWMoMiwgNyldDQpgYGANCg0KPC9icj4NCg0KZS4gRXNjcmliYSB1biBjb21hbmRvIGVuIFIgcGFyYSBleHRyYWVyIGxhcyBlbnRyYWRhcyBtZW5vcmVzIHF1ZSAtMyBvIG1heW9yZXMgcXVlIDEwLg0KYGBge3IsIGNsYXNzLnNvdXJjZT0iaW5kZW50IiwgY2xhc3Mub3V0cHV0PSJpbmRlbnQifQ0KeCA8LSBjKDMsIOKIkjUsIDMxLCDiiJIxLCDiiJI5LCAxMCwgMCwgMTgpDQp5IDwtIGMoMSwgMSwg4oiSMywgMSwg4oiSOTksIOKIkjEwLCAxMCwg4oiSNykNCg0KeFt4IDwgLTMgfCB4ID4gMTBdDQoNCnlbeSA8IC0zIHwgeSA+IDEwXQ0KYGBgDQoNCjwvYnI+DQoNCmYuIEVzY3JpYmEgdW4gY29tYW5kbyBlbiBSIHBhcmEgZXh0cmFlciBsYXMgZW50cmFkYXMgbWF5b3JlcyBxdWUgMCB5IHF1ZSBzZWFuIG7Dum1lcm8gcGFyZXMuDQoNCmBgYHtyLCBjbGFzcy5zb3VyY2U9ImluZGVudCIsIGNsYXNzLm91dHB1dD0iaW5kZW50In0NCnggPC0gYygzLCDiiJI1LCAzMSwg4oiSMSwg4oiSOSwgMTAsIDAsIDE4KQ0KeSA8LSBjKDEsIDEsIOKIkjMsIDEsIOKIkjk5LCDiiJIxMCwgMTAsIOKIkjcpDQoNCnhbeCA+IDAgJiAoeCAlJSAyID09IDApXQ0KeVt5ID4gMCAmICh5ICUlIDIgPT0gMCldDQpgYGANCg0KPC9icj4NCg0KIyMjIyBJSSBQYXJ0ZQ0KDQoxLiBFamVjdXRlIGVsIHNpZ3VpZW50ZSBjw7NkaWdvOg0KDQpgYGB7ciwgY2xhc3Muc291cmNlPSJpbmRlbnQiLCBjbGFzcy5vdXRwdXQ9ImluZGVudCJ9DQp2IDwtIGMoMSwzKQ0KcHJpbnQodikNCmBgYA0KDQpgYGB7cn0NCnBsb3QoMywxLCB4bGltPWMoMCw1KSwgeWxpbT1jKDAsNSksIHhsYWI9IngiLCB5bGFiPSJ5IiwgbHdkPTMsIGNvbD0ncmVkJywgYnR5PSduJykNCmFycm93cygwLDAsMywxLGNvbD0ncmVkJykNCmBgYA0KDQoNCjIuIEVqZWN1dGUgZWwgc2lndWllbnRlIGPDs2RpZ28geSBleHBsaXF1ZSBzZWfDum4gbG8gZXN0dWRpYWRvIGVuIGNsYXNlOiBDdcOhbGVzIGZ1ZXJvbiBsb3MgZG9zIHZlY3RvcmVzIGJhc2UgcGFyYSBkaXNlw7FhciBsYSBmaWd1cmE/LCDCv1F1w6kgc2lnbmlmaWNhIGVsIHZlY3RvciBkZSBjb2xvciB2ZXJkZT8NCg0KYGBge3J9DQpwbG90KDMsMSwgeGxpbT1jKDAsNSksIHlsaW09YygwLDUpLCB4bGFiPSJ4IiwgeWxhYj0ieSIsIGx3ZD0zLCBjb2w9J3JlZCcsIGJ0eT0nbicpDQphcnJvd3MoMCwwLDMsMSxjb2w9J3JlZCcpDQpwb2ludHMoMSwzLGx3ZD0zLGNvbD0nYmx1ZScpDQphcnJvd3MoMCwwLDEsMyxjb2w9J2JsdWUnKQ0KcG9pbnRzKDQsNCxsd2Q9Myxjb2w9J2dyZWVuJykNCmFycm93cygwLDAsNCw0LGNvbD0nZ3JlZW4nKQ0KYXJyb3dzKDEsMyw0LDQsY29sPSdyZWQnLGx0eT0zKQ0KYXJyb3dzKDMsMSw0LDQsY29sPSdibHVlJyxsdHk9MykNCmBgYA0KDQpSZXNwdWVzdGFzOg0KDQpDdcOhbGVzIGZ1ZXJvbiBsb3MgZG9zIHZlY3RvcmVzIGJhc2UgcGFyYSBkaXNlw7FhciBsYSBmaWd1cmE/IDwvYnI+DQpMb3MgdmVjdG9yZXMgZnVlcm9uICgzLCAxKSB5ICgxLCAzKQ0KDQrCv1F1w6kgc2lnbmlmaWNhIGVsIHZlY3RvciBkZSBjb2xvciB2ZXJkZT8gPC9icj4NCkVsIHZlY3RvciBkZSBjb2xvciB2ZXJkZSByZXByZXNlbnRhIGxhIHN1bWEgZGUgbG9zIHZlY3RvcmVzICgzLCAxKSB5ICgxLCAzKQ0KDQo8L2JyPg0KDQpSZWFsaWNlIHVuYSBtb2RpZmljYWNpb24gYWwgQ29kaWdvLCBkZSBtYW5lcmEgcXVlIGVuIGx1Z2FyIGRlIGlsdXN0cmFyIGxhIHN1bWEgZGUgdmVjdG9yZXMsIHNlIGlsdXN0cmUgbGEgcmVzdGEgIGRlIGxvcyB2ZWN0b3JlcyBiYXNlLg0KDQpgYGB7cn0NCnBsb3QoMywxLCB4bGltPWMoMCw1KSwgeWxpbT1jKDAsNSksIHhsYWI9IngiLCB5bGFiPSJ5IiwgbHdkPTMsIGNvbD0ncmVkJywgYnR5PSduJykNCmFycm93cygwLDAsMywxLGNvbD0ncmVkJykNCnBvaW50cygxLDMsbHdkPTMsY29sPSdibHVlJykNCmFycm93cygwLDAsMSwzLGNvbD0nYmx1ZScpDQpwb2ludHMoMywxLGx3ZD0zLGNvbD0nZ3JlZW4nKQ0KcG9pbnRzKDEsMyxsd2Q9Myxjb2w9J2dyZWVuJykNCmFycm93cygxLDMsMywxLGNvbD0nZ3JlZW4nKQ0KYGBgDQoNCkFkZW3DoXMsIGNvbXBsZXRlIGxhIHNpZ3VpZW50ZSB0YWJsYSwgZXhwbGljYW5kbyBsYSBmdW5jacOzbiBkZSBjaWVydGFzIGluc3RydWNjaW9uZXMgZGVsIGNvbWFuZG8gcGxvdCB5IGFycm93cy4NCg0KQ29tYW5kbyAgICB8IEV4cGxpY2FjacOzbg0KLS0tLS0tLS0tLSB8IC0tLS0tLS0tLS0tLS0NCnhsaW0sIHlsaW0gfCBEZWZpbmVuIGVsIHJhbmdvIGRlbCBlamUgeCB5IGVsIGVqZSB5IGVuIGVsIGdyw6FmaWNvLg0KeGxhYiwgeWxhYiB8IExhIG9wY2nDs24gKip4bGFiKiogYWdyZWdhIHVuIHTDrXR1bG8gZW4gZWwgZWplIHgsIG1pZW50cmFzIHF1ZSAqKnlsYWIqKiBhZ3JlZ2EgdW5vIGVuIGVsIGVqZSB5Lg0KbHdkICAgICAgICB8IERlZmluZSBlbCBhbmNobyBkZSBsYSBsw61uZWEgZW4gZWwgZWxlbWVudG8gcXVlIHNlIHVzZSwgZS5nLiBncsOhZmljbywgcHVudG9zLCBmbGVjaGFzLg0KbHR5ICAgICAgICB8IERlZmluZSBlbCB0aXBvIGRlIGzDrW5lYSBxdWUgc2UgdmEgYSB1c2FyIHBhcmEgZGlidWphciBjaWVydG8gZWxlbWVudG8uDQpjb2wgICAgICAgIHwgRGVmaW5lIGVsIGNvbG9yIGRlIHVuIGVsZW1lbnRvLg0KYnR5ICAgICAgICB8IE9wY2nDs24gcXVlIGRpYnVqYSB1bmEgY2FqYSBhbHJlZGVkb3IgZGVsIGdyw6FmaWNvLiBTaSBzZSBkZWZpbmUgY29tbyAgKionbicqKiBubyBzZSBkaWJ1amFyYSBuaW5ndW5hIGNhamEuDQoNCg0KPCEtLSAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSAtLT4NCjwhLS0NCkVzdGEgc2VjY2nDs24gZXMgc29sbyBwYXJhIGFncmVnYXIgZXN0aWxvcyB5IGVsZW1lbnRvcyANCnBlcnNvbmFsaXphZG9zIGFsIGh0bWwgZ2VuZXJhZG8gcG9yIHJTdHVkaW8gIA0KLS0+DQo8IS0tIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tIC0tPg0KDQombmJzcDsNCg0KPGhyIC8+DQo8cCBzdHlsZT0idGV4dC1hbGlnbjogY2VudGVyOyI+QXV0b3IgPGEgaHJlZj0iaHR0cHM6Ly9naXRodWIuY29tL2JkdXJhbnMiPkJyaWFuIER1cmFuPC9hPjwvcD4NCjxwIHN0eWxlPSJ0ZXh0LWFsaWduOiBjZW50ZXI7Ij48c3BhbiBzdHlsZT0iY29sb3I6ICM4MDgwODA7Ij48ZW0+YmR1cmFuMDM5M0BnbWFpbC5jb208L2VtPjwvc3Bhbj48L3A+DQoNCjwhLS0gQWRkIGljb24gbGlicmFyeSAtLT4NCjxsaW5rIHJlbD0ic3R5bGVzaGVldCIgaHJlZj0iaHR0cHM6Ly9jZG5qcy5jbG91ZGZsYXJlLmNvbS9hamF4L2xpYnMvZm9udC1hd2Vzb21lLzQuNy4wL2Nzcy9mb250LWF3ZXNvbWUubWluLmNzcyI+DQoNCjwhLS0gQWRkIGZvbnQgYXdlc29tZSBpY29ucyAtLT4NCjxwIHN0eWxlPSJ0ZXh0LWFsaWduOiBjZW50ZXI7Ij4NCiAgICA8YSBocmVmPSJodHRwczovL2dpdGh1Yi5jb20vYmR1cmFucy90ZWNfZGF0YV9zY2llbmNlX2NvdXJzZSIgY2xhc3M9ImZhIGZhLWdpdGh1YiI+PC9hPg0KPC9wPg0KDQo8YSBocmVmPSJodHRwczovL2dpdGh1Yi5jb20vYmR1cmFucy90ZWNfZGF0YV9zY2llbmNlX2NvdXJzZSIgY2xhc3M9ImdpdGh1Yi1jb3JuZXIiIGFyaWEtbGFiZWw9IlZpZXcgc291cmNlIG9uIEdpdEh1YiI+PHN2ZyB3aWR0aD0iODAiIGhlaWdodD0iODAiIHZpZXdCb3g9IjAgMCAyNTAgMjUwIiBzdHlsZT0iZmlsbDojMTUxNTEzOyBjb2xvcjojZmZmOyBwb3NpdGlvbjogYWJzb2x1dGU7IHRvcDogMDsgYm9yZGVyOiAwOyByaWdodDogMDsiIGFyaWEtaGlkZGVuPSJ0cnVlIj48cGF0aCBkPSJNMCwwIEwxMTUsMTE1IEwxMzAsMTE1IEwxNDIsMTQyIEwyNTAsMjUwIEwyNTAsMCBaIj48L3BhdGg+PHBhdGggZD0iTTEyOC4zLDEwOS4wIEMxMTMuOCw5OS43IDExOS4wLDg5LjYgMTE5LjAsODkuNiBDMTIyLjAsODIuNyAxMjAuNSw3OC42IDEyMC41LDc4LjYgQzExOS4yLDcyLjAgMTIzLjQsNzYuMyAxMjMuNCw3Ni4zIEMxMjcuMyw4MC45IDEyNS41LDg3LjMgMTI1LjUsODcuMyBDMTIyLjksOTcuNiAxMzAuNiwxMDEuOSAxMzQuNCwxMDMuMiIgZmlsbD0iY3VycmVudENvbG9yIiBzdHlsZT0idHJhbnNmb3JtLW9yaWdpbjogMTMwcHggMTA2cHg7IiBjbGFzcz0ib2N0by1hcm0iPjwvcGF0aD48cGF0aCBkPSJNMTE1LjAsMTE1LjAgQzExNC45LDExNS4xIDExOC43LDExNi41IDExOS44LDExNS40IEwxMzMuNywxMDEuNiBDMTM2LjksOTkuMiAxMzkuOSw5OC40IDE0Mi4yLDk4LjYgQzEzMy44LDg4LjAgMTI3LjUsNzQuNCAxNDMuOCw1OC4wIEMxNDguNSw1My40IDE1NC4wLDUxLjIgMTU5LjcsNTEuMCBDMTYwLjMsNDkuNCAxNjMuMiw0My42IDE3MS40LDQwLjEgQzE3MS40LDQwLjEgMTc2LjEsNDIuNSAxNzguOCw1Ni4yIEMxODMuMSw1OC42IDE4Ny4yLDYxLjggMTkwLjksNjUuNCBDMTk0LjUsNjkuMCAxOTcuNyw3My4yIDIwMC4xLDc3LjYgQzIxMy44LDgwLjIgMjE2LjMsODQuOSAyMTYuMyw4NC45IEMyMTIuNyw5My4xIDIwNi45LDk2LjAgMjA1LjQsOTYuNiBDMjA1LjEsMTAyLjQgMjAzLjAsMTA3LjggMTk4LjMsMTEyLjUgQzE4MS45LDEyOC45IDE2OC4zLDEyMi41IDE1Ny43LDExNC4xIEMxNTcuOSwxMTYuOSAxNTYuNywxMjAuOSAxNTIuNywxMjQuOSBMMTQxLjAsMTM2LjUgQzEzOS44LDEzNy43IDE0MS42LDE0MS45IDE0MS44LDE0MS44IFoiIGZpbGw9ImN1cnJlbnRDb2xvciIgY2xhc3M9Im9jdG8tYm9keSI+PC9wYXRoPjwvc3ZnPjwvYT48c3R5bGU+LmdpdGh1Yi1jb3JuZXI6aG92ZXIgLm9jdG8tYXJte2FuaW1hdGlvbjpvY3RvY2F0LXdhdmUgNTYwbXMgZWFzZS1pbi1vdXR9QGtleWZyYW1lcyBvY3RvY2F0LXdhdmV7MCUsMTAwJXt0cmFuc2Zvcm06cm90YXRlKDApfTIwJSw2MCV7dHJhbnNmb3JtOnJvdGF0ZSgtMjVkZWcpfTQwJSw4MCV7dHJhbnNmb3JtOnJvdGF0ZSgxMGRlZyl9fUBtZWRpYSAobWF4LXdpZHRoOjUwMHB4KXsuZ2l0aHViLWNvcm5lcjpob3ZlciAub2N0by1hcm17YW5pbWF0aW9uOm5vbmV9LmdpdGh1Yi1jb3JuZXIgLm9jdG8tYXJte2FuaW1hdGlvbjpvY3RvY2F0LXdhdmUgNTYwbXMgZWFzZS1pbi1vdXR9fTwvc3R5bGU+DQoNCjxzY3JpcHQ+DQokKGRvY3VtZW50KS5yZWFkeShmdW5jdGlvbiAoKSB7DQogICAgJCgncHJlLnInKS5hZGRDbGFzcygnaW5kZW50Jyk7DQp9KTsNCjwvc2NyaXB0Pg0KDQo8c3R5bGU+DQouaW5kZW50IHsNCiBtYXJnaW4tbGVmdDogMzBweDsNCn0NCjwvc3R5bGU+DQoNCiZuYnNwOw0KDQoNCg==